home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xlibtypes.mln
< prev
next >
Wrap
Text File
|
1990-06-07
|
10KB
|
290 lines
;Beginning compilation on /u/kranz/xlib/xlibtypes.t
;;; Getting early bindings from INTERFACE
CHK-UNSIGNEDAP
ISA-UNSIGNEDAP?
UNSIGNEDA-LENGTH
UNSIGNEDA
UNSIGNEDA->UNSIGNED-LIST
UNSIGNED-LIST->UNSIGNEDA
UNSIGNEDA!
MAKE-UNSIGNEDA
CHK-UNSIGNEDPROC
ISA-UNSIGNEDPROC?
CHK-CHARP
ISA-CHARP?
CHK-CHARAP
ISA-CHARAP?
CHARA-LENGTH
CHARA
CHARA->CHAR-LIST
CHAR-LIST->CHARA
CHARA!
MAKE-CHARA
CHK-CHARPAP
ISA-CHARPAP?
CHARPA-LENGTH
CHARPA
CHARPA->CHARP-LIST
CHARP-LIST->CHARPA
CHARPA!
MAKE-CHARPA
CHK-INTPROC
ISA-INTPROC?
CHK-INTP
ISA-INTP?
CHK-INTAP
ISA-INTAP?
INTA-LENGTH
INTA
INTA->INT-LIST
INT-LIST->INTA
INTA!
MAKE-INTA
CHK-BOOLPROC
ISA-BOOLPROC?
CHK-XEXTDATAP
ISA-XEXTDATAP?
CHK-XGCVALUESP
ISA-XGCVALUESP?
CHK-GC
ISA-GC?
CHK-VISUALP
ISA-VISUALP?
CHK-DEPTHP
ISA-DEPTHP?
CHK-SCREENP
ISA-SCREENP?
CHK-XSETWINDOWATTRIBUTESP
ISA-XSETWINDOWATTRIBUTESP?
CHK-XWINDOWATTRIBUTESP
ISA-XWINDOWATTRIBUTESP?
CHK-XHOSTADDRESSP
ISA-XHOSTADDRESSP?
CHK-XHOSTADDRESSAP
ISA-XHOSTADDRESSAP?
XHOSTADDRESSA-LENGTH
XHOSTADDRESSA->XHOSTADDRESS-LIST
XHOSTADDRESS-LIST->XHOSTADDRESSA
CHK-XIMAGEP
ISA-XIMAGEP?
CHK-XIMAGEPROC
ISA-XIMAGEPROC?
CHK-XWINDOWCHANGESP
ISA-XWINDOWCHANGESP?
CHK-XCOLORP
ISA-XCOLORP?
CHK-XCOLORAP
ISA-XCOLORAP?
XCOLORA-LENGTH
XCOLORA->XCOLOR-LIST
XCOLOR-LIST->XCOLORA
CHK-XSEGMENTP
ISA-XSEGMENTP?
CHK-XSEGMENTAP
ISA-XSEGMENTAP?
XSEGMENTA-LENGTH
XSEGMENTA->XSEGMENT-LIST
XSEGMENT-LIST->XSEGMENTA
CHK-XPOINTP
ISA-XPOINTP?
CHK-XPOINTAP
ISA-XPOINTAP?
XPOINTA-LENGTH
XPOINTA->XPOINT-LIST
XPOINT-LIST->XPOINTA
CHK-XRECTANGLEP
ISA-XRECTANGLEP?
CHK-XRECTANGLEAP
ISA-XRECTANGLEAP?
XRECTANGLEA-LENGTH
XRECTANGLEA->XRECTANGLE-LIST
XRECTANGLE-LIST->XRECTANGLEA
CHK-XARCP
ISA-XARCP?
CHK-XARCAP
ISA-XARCAP?
XARCA-LENGTH
XARCA->XARC-LIST
XARC-LIST->XARCA
CHK-XKEYBOARDCONTROLP
ISA-XKEYBOARDCONTROLP?
CHK-XKEYBOARDSTATEP
ISA-XKEYBOARDSTATEP?
CHK-XQKEYMAPP
ISA-XQKEYMAPP?
XQKEYMAP-LENGTH
XQKEYMAP
XQKEYMAP->CHAR-LIST
CHAR-LIST->XQKEYMAP
XQKEYMAP!
MAKE-XQKEYMAP
CHK-XTIMECOORDP
ISA-XTIMECOORDP?
CHK-XTIMECOORDAP
ISA-XTIMECOORDAP?
XTIMECOORDA-LENGTH
XTIMECOORDA->XTIMECOORD-LIST
XTIMECOORD-LIST->XTIMECOORDA
CHK-XMODIFIERKEYMAPP
ISA-XMODIFIERKEYMAPP?
CHK-XNEWMODIFIERMAP
ISA-XNEWMODIFIERMAP?
CHK-XGETMODIFIERMAPPING
ISA-XGETMODIFIERMAPPING?
CHK-XDELETEMODIFIERMAPENTRY
ISA-XDELETEMODIFIERMAPENTRY?
CHK-XINSERTMODIFIERMAPENTRY
ISA-XINSERTMODIFIERMAPENTRY?
CHK-DISPLAYP
ISA-DISPLAYP?
CHK-XEVENTP
ISA-XEVENTP?
CHK-XCHARSTRUCTP
ISA-XCHARSTRUCTP?
CHK-XFONTPROPP
ISA-XFONTPROPP?
CHK-XFONTSTRUCTP
ISA-XFONTSTRUCTP?
CHK-XFONTSTRUCTAP
ISA-XFONTSTRUCTAP?
XFONTSTRUCTA-LENGTH
XFONTSTRUCTA->XFONTSTRUCT-LIST
XFONTSTRUCT-LIST->XFONTSTRUCTA
CHK-XTEXTITEMP
ISA-XTEXTITEMP?
CHK-XTEXTITEMAP
ISA-XTEXTITEMAP?
XTEXTITEMA-LENGTH
XTEXTITEMA->XTEXTITEM-LIST
XTEXTITEM-LIST->XTEXTITEMA
CHK-XCHAR2BP
ISA-XCHAR2BP?
CHK-XCHAR2BAP
ISA-XCHAR2BAP?
XCHAR2BA-LENGTH
XCHAR2BA->XCHAR2B-LIST
XCHAR2B-LIST->XCHAR2BA
CHK-XTEXTITEM16P
ISA-XTEXTITEM16P?
CHK-XRMVALUEPTR
ISA-XRMVALUEPTR?
CHK-XRMHASHBUCKET
ISA-XRMHASHBUCKET?
CHK-XRMHASHTABLE
ISA-XRMHASHTABLE?
CHK-XRMDATABASE
ISA-XRMDATABASE?
CHK-XRMDATABASEP
ISA-XRMDATABASEP?
CHK-XRMOPTIONDESCLIST
ISA-XRMOPTIONDESCLIST?
CHK-XSIZEHINTSP
ISA-XSIZEHINTSP?
CHK-XWMHINTSP
ISA-XWMHINTSP?
CHK-XICONSIZEP
ISA-XICONSIZEP?
CHK-XCLASSHINTP
ISA-XCLASSHINTP?
CHK-XCOMPOSESTATUSP
ISA-XCOMPOSESTATUSP?
CHK-REGION
ISA-REGION?
CHK-XVISUALINFOP
ISA-XVISUALINFOP?
CHK-XSTANDARDCOLORMAPP
ISA-XSTANDARDCOLORMAPP?
(VARIABLES
FREE (MAP APPLY MAKE-BYTEV BEGIN LENGTH ERROR)
EARLY-BOUND (BYTEV-APPEND SUB-BYTEV SET-MREF-POINTER! MREF-POINTER
SET-MREF-8-U! MREF-8-U SET-MREF-INTEGER! MREF-INTEGER)
DEFINED (ISA-XWINDOWATTRIBUTESP? XARCA->XARC-LIST INTA-LENGTH CHK-GC
ISA-XRECTANGLEAP? MAKE-XQKEYMAP CHK-DISPLAYP ISA-XEXTDATAP? XHOSTADDRESS-LIST->XHOSTADDRESSA
ISA-XINSERTMODIFIERMAPENTRY? UNSIGNEDA! XHOSTADDRESSA-LENGTH ISA-XNEWMODIFIERMAP?
XHOSTADDRESSA->XHOSTADDRESS-LIST ISA-XSEGMENTP? ISA-DISPLAYP? ISA-UNSIGNEDAP?
ISA-XARCAP? XQKEYMAP-LENGTH CHK-DEPTHP XSEGMENTA-LENGTH CHK-XDELETEMODIFIERMAPENTRY
CHARA-LENGTH CHARPA! CHK-XHOSTADDRESSP INTA->INT-LIST CHK-VISUALP
CHK-XIMAGEP CHK-INTP ISA-XPOINTP? CHARA->CHAR-LIST CHK-INTPROC CHK-INTAP
ISA-XARCP? CHK-XRMHASHBUCKET CHK-XCOLORP ISA-XKEYBOARDSTATEP? CHARPA
CHK-XRECTANGLEP ISA-UNSIGNEDPROC? ISA-XGETMODIFIERMAPPING? ISA-XCHARSTRUCTP?
XCOLOR-LIST->XCOLORA ISA-XFONTSTRUCTAP? CHAR-LIST->CHARA XCOLORA->XCOLOR-LIST
CHK-XTEXTITEMAP INTA CHK-XRMDATABASEP CHK-XTEXTITEM16P ISA-XRECTANGLEP?
XTEXTITEMA->XTEXTITEM-LIST INTA! XARCA-LENGTH CHK-XCHARSTRUCTP ISA-XTIMECOORDP?
CHK-XCHAR2BP ISA-XRMVALUEPTR? ISA-BOOLPROC? CHK-XGETMODIFIERMAPPING
CHK-XWINDOWATTRIBUTESP ISA-XSETWINDOWATTRIBUTESP? ISA-XRMHASHTABLE?
CHK-XMODIFIERKEYMAPP ISA-XFONTPROPP? UNSIGNEDA-LENGTH CHARP-LIST->CHARPA
XCOLORA-LENGTH CHK-CHARP ISA-XWINDOWCHANGESP? XQKEYMAP ISA-CHARPAP?
CHK-SCREENP XSEGMENTA->XSEGMENT-LIST CHK-CHARPAP ISA-SCREENP? ISA-XCOMPOSESTATUSP?
CHARA! XPOINT-LIST->XPOINTA CHK-XEVENTP XPOINTA->XPOINT-LIST CHK-XTIMECOORDAP
CHK-UNSIGNEDPROC CHK-XARCP XFONTSTRUCTA-LENGTH ISA-CHARP? INT-LIST->INTA
CHK-XWINDOWCHANGESP ISA-XIMAGEP? CHK-XINSERTMODIFIERMAPENTRY CHK-XFONTSTRUCTP
UNSIGNED-LIST->UNSIGNEDA ISA-CHARAP? ISA-GC? CHK-XPOINTAP ISA-XSIZEHINTSP?
ISA-XCOLORP? ISA-XVISUALINFOP? CHK-XEXTDATAP CHK-XSIZEHINTSP CHARPA->CHARP-LIST
ISA-VISUALP? CHK-XHOSTADDRESSAP CHK-XARCAP CHK-XSTANDARDCOLORMAPP
CHK-XKEYBOARDCONTROLP UNSIGNEDA->UNSIGNED-LIST CHK-XPOINTP XTIMECOORD-LIST->XTIMECOORDA
ISA-INTPROC? ISA-INTP? XRECTANGLE-LIST->XRECTANGLEA CHK-UNSIGNEDAP
CHARA ISA-XGCVALUESP? CHARPA-LENGTH ISA-DEPTHP? ISA-XQKEYMAPP? ISA-XSEGMENTAP?
ISA-XEVENTP? XFONTSTRUCTA->XFONTSTRUCT-LIST ISA-REGION? ISA-XRMHASHBUCKET?
MAKE-CHARPA ISA-INTAP? ISA-XPOINTAP? CHK-XGCVALUESP CHK-XNEWMODIFIERMAP
XCHAR2BA-LENGTH CHK-CHARAP XARC-LIST->XARCA CHK-XIMAGEPROC UNSIGNEDA
XFONTSTRUCT-LIST->XFONTSTRUCTA CHK-XRMVALUEPTR MAKE-INTA ISA-XHOSTADDRESSP?
ISA-XIMAGEPROC? CHK-BOOLPROC XPOINTA-LENGTH CHK-XQKEYMAPP MAKE-UNSIGNEDA
MAKE-CHARA CHK-XSETWINDOWATTRIBUTESP CHK-XKEYBOARDSTATEP CHK-XTIMECOORDP
ISA-XMODIFIERKEYMAPP? CHK-XTEXTITEMP CHK-XWMHINTSP XRECTANGLEA-LENGTH
CHAR-LIST->XQKEYMAP CHK-XRMDATABASE XQKEYMAP->CHAR-LIST ISA-XTEXTITEMAP?
ISA-XICONSIZEP? ISA-XHOSTADDRESSAP? CHK-XSEGMENTAP ISA-XCHAR2BP? CHK-XSEGMENTP
XRECTANGLEA->XRECTANGLE-LIST CHK-XFONTSTRUCTAP ISA-XCOLORAP? XSEGMENT-LIST->XSEGMENTA
ISA-XDELETEMODIFIERMAPENTRY? CHK-XCOLORAP CHK-XRECTANGLEAP XCHAR2B-LIST->XCHAR2BA
ISA-XFONTSTRUCTP? ISA-XKEYBOARDCONTROLP? XQKEYMAP! CHK-XICONSIZEP
ISA-XTEXTITEMP? ISA-XWMHINTSP? CHK-XFONTPROPP XTIMECOORDA->XTIMECOORD-LIST
ISA-XTIMECOORDAP? XTIMECOORDA-LENGTH XTEXTITEM-LIST->XTEXTITEMA CHK-XCLASSHINTP
CHK-XCHAR2BAP ISA-XRMOPTIONDESCLIST? XTEXTITEMA-LENGTH ISA-XCHAR2BAP?
XCHAR2BA->XCHAR2B-LIST CHK-XRMHASHTABLE ISA-XTEXTITEM16P? CHK-XRMOPTIONDESCLIST
CHK-XCOMPOSESTATUSP ISA-XRMDATABASE? ISA-XRMDATABASEP? ISA-XCLASSHINTP?
ISA-XSTANDARDCOLORMAPP? CHK-REGION CHK-XVISUALINFOP)
LSET ()
SET ()
ERROR ()
INTEGRATED (CONS FX* FX+ BYTEV-LENGTH FX/ PAIR? CAR EQ? CDR)
LOCAL ()
UNREFERENCED (ISA-XWINDOWATTRIBUTESP? XARCA->XARC-LIST CHK-GC ISA-XRECTANGLEAP?
CHK-DISPLAYP ISA-XEXTDATAP? XHOSTADDRESS-LIST->XHOSTADDRESSA ISA-XINSERTMODIFIERMAPENTRY?
XHOSTADDRESSA-LENGTH ISA-XNEWMODIFIERMAP? XHOSTADDRESSA->XHOSTADDRESS-LIST
ISA-XSEGMENTP? ISA-DISPLAYP? ISA-UNSIGNEDAP? ISA-XARCAP? CHK-DEPTHP
XSEGMENTA-LENGTH CHK-XDELETEMODIFIERMAPENTRY INTA->INT-LIST CHK-VISUALP
CHK-XIMAGEP CHK-INTP ISA-XPOINTP? CHARA->CHAR-LIST CHK-INTPROC ISA-XARCP?
CHK-XRMHASHBUCKET ISA-XKEYBOARDSTATEP? ISA-UNSIGNEDPROC? ISA-XGETMODIFIERMAPPING?
ISA-XCHARSTRUCTP? XCOLOR-LIST->XCOLORA ISA-XFONTSTRUCTAP? CHAR-LIST->CHARA
XCOLORA->XCOLOR-LIST CHK-XRMDATABASEP CHK-XTEXTITEM16P ISA-XRECTANGLEP?
XTEXTITEMA->XTEXTITEM-LIST XARCA-LENGTH CHK-XCHARSTRUCTP ISA-XTIMECOORDP?
ISA-XRMVALUEPTR? ISA-BOOLPROC? CHK-XGETMODIFIERMAPPING CHK-XWINDOWATTRIBUTESP
ISA-XSETWINDOWATTRIBUTESP? ISA-XRMHASHTABLE? CHK-XMODIFIERKEYMAPP
ISA-XFONTPROPP? CHARP-LIST->CHARPA XCOLORA-LENGTH ISA-XWINDOWCHANGESP?
ISA-CHARPAP? CHK-SCREENP XSEGMENTA->XSEGMENT-LIST ISA-SCREENP? ISA-XCOMPOSESTATUSP?
XPOINT-LIST->XPOINTA CHK-XEVENTP XPOINTA->XPOINT-LIST CHK-UNSIGNEDPROC
XFONTSTRUCTA-LENGTH ISA-CHARP? INT-LIST->INTA CHK-XWINDOWCHANGESP
ISA-XIMAGEP? CHK-XINSERTMODIFIERMAPENTRY UNSIGNED-LIST->UNSIGNEDA
ISA-CHARAP? ISA-GC? ISA-XSIZEHINTSP? ISA-XCOLORP? ISA-XVISUALINFOP?
CHK-XEXTDATAP CHK-XSIZEHINTSP CHARPA->CHARP-LIST ISA-VISUALP? CHK-XSTANDARDCOLORMAPP
CHK-XKEYBOARDCONTROLP UNSIGNEDA->UNSIGNED-LIST XTIMECOORD-LIST->XTIMECOORDA
ISA-INTPROC? ISA-INTP? XRECTANGLE-LIST->XRECTANGLEA ISA-XGCVALUESP?
ISA-DEPTHP? ISA-XQKEYMAPP? ISA-XSEGMENTAP? ISA-XEVENTP? XFONTSTRUCTA->XFONTSTRUCT-LIST
ISA-REGION? ISA-XRMHASHBUCKET? ISA-INTAP? ISA-XPOINTAP? CHK-XGCVALUESP
CHK-XNEWMODIFIERMAP XCHAR2BA-LENGTH XARC-LIST->XARCA CHK-XIMAGEPROC
XFONTSTRUCT-LIST->XFONTSTRUCTA CHK-XRMVALUEPTR ISA-XHOSTADDRESSP?
ISA-XIMAGEPROC? CHK-BOOLPROC XPOINTA-LENGTH CHK-XSETWINDOWATTRIBUTESP
CHK-XKEYBOARDSTATEP ISA-XMODIFIERKEYMAPP? CHK-XWMHINTSP XRECTANGLEA-LENGTH
CHAR-LIST->XQKEYMAP CHK-XRMDATABASE XQKEYMAP->CHAR-LIST ISA-XTEXTITEMAP?
ISA-XICONSIZEP? ISA-XHOSTADDRESSAP? ISA-XCHAR2BP? XRECTANGLEA->XRECTANGLE-LIST
ISA-XCOLORAP? XSEGMENT-LIST->XSEGMENTA ISA-XDELETEMODIFIERMAPENTRY?
XCHAR2B-LIST->XCHAR2BA ISA-XFONTSTRUCTP? ISA-XKEYBOARDCONTROLP? CHK-XICONSIZEP
ISA-XTEXTITEMP? ISA-XWMHINTSP? CHK-XFONTPROPP XTIMECOORDA->XTIMECOORD-LIST
ISA-XTIMECOORDAP? XTIMECOORDA-LENGTH XTEXTITEM-LIST->XTEXTITEMA CHK-XCLASSHINTP
ISA-XRMOPTIONDESCLIST? XTEXTITEMA-LENGTH ISA-XCHAR2BAP? XCHAR2BA->XCHAR2B-LIST
CHK-XRMHASHTABLE ISA-XTEXTITEM16P? CHK-XRMOPTIONDESCLIST CHK-XCOMPOSESTATUSP
ISA-XRMDATABASE? ISA-XRMDATABASEP? ISA-XCLASSHINTP? ISA-XSTANDARDCOLORMAPP?
CHK-REGION CHK-XVISUALINFOP))
; assembled 27472 bytes